home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / Miscellaneous Disk Images / Apple II Getting down to Basic / QUIT.bas < prev    next >
Encoding:
BASIC Source File  |  1983-11-14  |  1.2 KB  |  13 lines
  1. 0  ONERR  GOTO 101
  2. 1  LET IN$ = "X": POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: HOME :T = 3:B = 10:L = 1:W = 39: GOSUB 81: GOSUB 71: PRINT "You are about to leave this": PRINT "lesson.  When you press RETURN": PRINT "you will be in Applesoft BASIC,": PRINT "and will be able to write and": PRINT "save your own BASIC programs.": GOSUB 21
  3. 11  POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: HOME : VTAB 24: NEW 
  4. 21  POKE  -16368,0
  5. 31 P =  PEEK( -16384):TE = TE +1: ON P = 155 GOTO 91: ON P < >13 GOTO 41: IF TE <225  THEN 31
  6. 41  IF P = 141  THEN TE = 0: CALL  -998: POKE  -16368,0: RETURN 
  7. 51 M$ = "Press RETURN": GOSUB 61: FOR Z = 1 TO 700: NEXT Z:M$ = "_____________": GOSUB 61: FOR Z = 1 TO 700: NEXT Z: GOTO 31
  8. 61  VTAB B: HTAB (W - LEN(M$))/2 -1: PRINT M$;: RETURN 
  9. 71  POKE 34,T -2: POKE 35,B: POKE 32,L: POKE 33,W +1: HOME : FOR BD = 2 TO W -1: VTAB T -1: HTAB BD: PRINT "_";: VTAB B: HTAB BD: PRINT "_";: NEXT BD
  10. 75  FOR BD = T TO B: VTAB BD: HTAB 1: PRINT "|";: HTAB W: PRINT "|";: NEXT BD: POKE 34,T: POKE 35,B -1: POKE 32,L +2: POKE 33,W -4: HOME : RETURN 
  11. 81  POKE 32,0: POKE 33,40: POKE 34,V: POKE 35,24: HOME : RETURN 
  12. 91  POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: PRINT : PRINT  CHR$(4);"RUN MENU"
  13. 101  RESUME